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— file ListerControl .Mesa 

— last edited by Sandman, October 2, 1977 1:32 PM 

DIRECTORY 

CommanderDefs : FROM "commanderdefs", 
ImageDefs: FROM "imagedefs", 
lODefs: FROM "iodefs", 
ListerDefs: FROM "1 isterdef s" , 
StringOefs: FROM "stringdef s" , 
TimeDefs: FROM "timedefs"; 

DEFINITIONS FROM ListerDefs; 

ListerControl : PROGRAM 

IMPORTS CommanderDefs, ImageDefs, ListerDefs, StringDefs, TimeDefs, lODefs = 

BEGIN 

herald: STRING ♦• [60]; 

LoadLister: PROCEDURE « 
BEGIN 

SetupArray[] ; [] ^ DeleteArray[] ; 
START CommanderDefs .Commander[herald] ; 
START ListCode; 
START ListSymbols; 
START Listlnterface; 
START BcdList; 

START IODers.StreamIO[NIL, NIL]; 
ImageDefs .MakeImage["Li ster . Image" , FALSE] : 

StringDefs. AppendString[to: herald, from: "Alto/Mesa Lister "]; 
TimeDefs .AppendDayTime[ herald , TimeDefs .UnpackDT[ ImageDefs . ImageVersion[] . time]] ; 
herald, length ♦• herald . length - 3; 
RESTART CommanderDefs. Commander ; 
END; 

LoadLister[]; 

END. .. 


